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CNFSDELETE = Delete a CNF entry 
NFSPURGE = Drain CNF entries marked for delete 
CNFSINSERT = Insert/Replace a CNF entry 
NFSCOPY = Copy a CNF to another 
NFSCLONE - Congress a CNF entry 
CNFSINIT = Initialize CNF yt 
CNFSKEY_ SEARCH = Search for selected CNFs 
NFSSEARCH = Search for CNFs by List of keys 
ompare CNF against oy 
D - Get field from CNF entr, 
D = Store field into CNF entry 
D = Clear a CNF field 
heck if field exists 
Call action routine to get value 
Call action routine to store value 
t descriptor of CNF field 
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-TITLE WNETCNFE = Configuration data base access routines 

-IDENT ‘v04-000' 

-DEFAULT DISPLACEMENT ,WORD 
PARRRAAAALALALALALALALALALALALAESESELE SESE LESS SESE SESE SERA SEES EE ESSE SERRE ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


SOOO COOCOOOOCOOOSCOoOoO 
COCO COOCOOOCOOOOOoOoOoo 


OOOCOCOOCoOQOoOoCoooooooo 


v010 RNGOO10 Rod Gamache : 7-F eb-1984 
Fix return from GET_FIELD for register descriptor to be 
zero on error returns. 
Fix possible stack problem with CNFSDELETE routine. 


SOOooocoooo 


SSSSSSSsSsss 


v009 09 17-May-1983 


TMHOO Tim Halvorsen 
Fix bug in GET_FIELD and COMPARE ACT which assumes that 


SoOooooooo 


ooo 


the field is a longword, and picks up the value before 

t finds out it may be a ‘bit’. If the bit number is 
~- enough, this may cause a spurious reference off the 
end of the structure, and if the next page is a null page, 
the system will crash. 


4 
5 ;* 
ie 
3* * 
8 ;* * 
0 1 :* ALL RIGHTS RESERVED. * 
D4 ® 
5 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 i 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1 3* TRANSFERRED. ® 
3* & 
0 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9464 , :* CORPORATION. * 
4 ® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i464 Z 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
7* ” 
e 0000 5 ;* » 
° 6 0000 $§ FRARARARA AREER AAA AAA A AREA AA AAA E AAA AAA AERA EATER TATA AKA e AeA eee ete et 
0000 : 
0000 8 
0000 9 ; FACILITY: NETWORK ACP 
0000 0 
0000 1 ABSTRACT: ‘ . ; 
0000 ¢ This module provides access to the NETACP configuration 
0000 database. 
0000 4 
. 0000 5 ; ENVIRONMENT: 
° 0000 6 Kernel mode 
0000 7 
« ee 0000 8 > AUTHOR: A.Eldridge 14-JAN-80 
e%% 0000 9 
. Op re MODIFIED BY: 
0 $s vo11 RNGOO11 Rod Gamache : 16-Mar-1984 
0 4 Fix routine that calls action routines to not clobber the 
0 rf: return status in RO. 
4 
t9 
48 
49 
0 
4 
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v008 RNGOO08 Rod Gamache 
Add code to support binary balanced trees for the NDI 
database. 


v007 TMHO007 Tim Halvorsen 05-Nov-1982 
Add concept of action routines which can both read and 
write a parameter (in addition to the existing concept of 
action routines which only read a parameter). 


29-Mar-1983 


Oo 

Ooo 

ww 
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CON UNE 


v006 TMHO006 Tim Halvorsen 02-Jul-1982 

ae routine which stores a string parameter when 
one already exists, so that, if the string is equal 

to, or less than the size of the original string, then 

the space is simply reused, rather than Ter 

an error. This is needed because NI datalink drivers 

now deal more with string parameters (NI addresses). 

Enhance CNFSVERIFY so that it properly detects a 

parameter which is not in the semantic table, but 

is within the range of allowable indicies (a hole 

in the table). 


v00s TMHOOOS Tim Halvorsen 16-Jun-1982 
Add code to handle new type of field access control 
called ‘‘no external read or write access’’ (ACC_NE). 
Add SDYNDEF definition. 


: vO04  TMHO004 Tim Halvorsen 04-Apr-1982 
: Remove spurious instruction and Label. 
: 
; | 
, | 

} 


SOOOOCCOOCOOOOOOOCOOOOOCOOCOoSoSo 
COOCQOCOoOOoooOooOooooooooosco 
GOOOCOCOCGCCGCOOCOOOOOOOOOOoO: 


OOOO COOOCOOOOoCOoOooooO 


ppec ret case NFBSC_WILDCARD as a search field ID in 
KEY_SRCH, in order to remove extra code in CTLALL. 
Replace call to NETSAPPLY_DFLT with a call to a CNR 
specific action routine to apply the default values. 
Return BADPARAM from GET_DSC if read access not allowed, 
rather than returning a zero. 

Make CNFSINIT a local routine, since it is not called by 
any other module. 

Modify calling sequence to field action routines, so that 
a scratch buffer is automatically allocated here before 
calling the routine, to avoid the expense of having each 
routine do it. In addition, all registers are automatically 
saved over an action routine call. 

Remove CNFSGET_ADDR routine, as it is no longer called 
by anyone as a result of the action routine changes. 

Add routine to search given a List of search keys. 
Remove code to puppet FNDNEXT operator. 

Fix FNDMIN and FNDMAX support so that it correctly 
returns the matched CNF in R10. 

Rename CNFST_MASK to CNFSL_MASK. 

Rename CNRS$T_SEM_TAB to CNRSL_SEM_TAB. 

Make default word addressing mode and remove all 
explicit addressing mode specifiers. : 

Use SETBIT and CLRBIT macros where ever possibie. 


v003 TMHOOOS — Tim Halvorsen 25-Mar-1982 
Fix routine which compresses a CNF block to correctly 
initialize the amount of space used for strings, to 
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prevent a continual increase in the block size for 
each block compression. 


v02-002 ADE00SO A.Eldridge 19-Jan-1982 
Added call to NETSAPPLY_DFLT which applies default values 
to selected CNF parameters when an entry is about to 
inserted into the database. 


v02-001 ADE0007 A.Eldridge 
General cleanup. 
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ETACP.SRCJNETCNF MAR; 1 (2) | 
; .SBTTL Declarations | 
: INCLUDE FILES: 

SDYNDEF 3; Dynamic structure types 
SCNRDEF Configuration Root Block 
SCNF DEF Configuration Data Block 
SNETSYMDEF 
SNF BDEF 


Miscellaneous symbol definitions 
ACP control Q10 definitions 


: EQUATED SYMBOLS: 


STR_OFF 
STRILNG 


COOQoooooooooooooo 
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pole lo leo lol ole lolol elo lolol ole ala) 


00000000 


: String descriptor strin lf-relati ffset 
00000002 00 g 9 Pp g self-relative offse 


; String descriptor string size 


0 
0000044C 800 TMP_LTH 1100 ; Length of temp buffer 


: OWN STORAGE 


0000 -PSECT NET_PURE,NOWRT ,NOEXE ,LONG 


0000 
0000044C 0000 
00000004" 0004 


0008 
00000000 


TMPBUF _DESC:: -LONG TMP_LTH ; Descriptor of TMP_BUF for external use 
-ADDRESS TMP_BUF 


.PSECT NET_IMPURE ,WRT,NOEXE 


00000004 0000 SELECT_CNF: -BLKL 1 ; Currently selected min/max CNF 
0000000C 4 SELECT_VALUE: .BLKL 2 3; Min/max value assoc. with SELECT_CNF 
TMP_B_FLAGS: -BYTE 0 : Buffer ies ry 
00000000 000D TMP_V_VAL = 0 ; 1 if TMP_VAL in use, else 0 
00000001 44 TMP_V_BUF = 1 ; 1 if buffer in use, else 0 
0000) o -PSECT TABLES_IMPURE ,WRT,NOEXE,GBL 
00000000 $000 TMP_VAL: -LONG 0 ; Tmp storage for returned value 
4 ; and for ‘‘short’’ decriptor of TMP_BUF 
; ? ; when returning strings 
00000450 004 TMP _BUF : -BLKB TMP_LTH ; Buffer for Syturning strings 
TMP _BUF _END: ; Address of first byte past buffer 
-LONG 0 ; Leave an extra longword 


a a a ee ee ee ed dd dd 
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NAME WN 9 ODNA UE WIN $ O OD NO UE WN = OODNAUE WR O ODNOU EWN -O0Oan 


00000000 50 
454 


00000000 -PSECT NET_CODE ,NOWRT EXE 
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HOW - Pre-SHOW processing 
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-SBTTL CNFSPRE_SHOW - Pre-SHOW processing 
CNFSPRE_SHOW = Pre-process CNF for a ‘’show'’ Q10 


Dispatch to database specific action routine to pre-process a CNF entry 
before a ‘‘show’’ Q10 is processed for that entry. 


INPUTS: R11 CNR pointer 
R10 CNF pointer 
R9-R7 3=Scratch 
R5-RO Scratch 


OUTPUTS: R11,R10 Preserved 
R6 Preserved 
ALL other regs are clobbered. 
ENF SPRE — ; ‘'Show’’ Q10 pre-processing 
PUSHL R6 ; Save re 
JSB @CNRSL_ACT_SHOW(R11) ; Call action routine 
POPL R6 ; Restore reg 


Done 


a 
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~SBTTL CNFSPRE_QIO = Pre-Q10 processing 


- Pre-process database to prepare it for a Q10 


: F Stecendl to database specific action routine to pre-process a CNF entry 
before a ‘‘show’’ Q10 is processed for that entry. 


COOOQOOGOCOSOOOOOOOOOOOSOO A- 
SOOoOCOCOOCOOCOOOOOCOoOSoOOoOOoOoOSo mMm~. 
——-DOOCWOQDOOOOOOOOOCOCOCSoO | fo 
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R11 CNR pointer 


R11 Unchanged 
RO SS$_... (may return this code as Q10 status if low 
bit is clear) 


ALL other regs are preserved 


; Q10 pre-processing for database 


#*M<R1,R2,R3,R4,R5,R6,R7,RB,RI> : Save regs 
Onn “act _Qi0(R11 ; Setup database 
“M<R1—R2, RS, Ra RS, R6,R7,R8,R9I> ; Restore regs 


Done 
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5 a -SBTTL CNFSDELETE = Delete a CNF entry 
; CNFSDELETE - Attempt to delete CNF entry 


: Bee CNF is oparoee to see if it is delete-able. If so, it is marked 
sompocery, . e CNFSV_FLG_ACP bit is set then the CNF does not exist in 

linked List portion Of the database and the operation is considered to 

; hey a a (these CNF‘s are comet ince referred to as ‘‘phantom’’ CNF's and 

; are used to reference th nee +: to NETACP but never inserted into the 

; database: for instance, a node which was never defined but which is 

; reachable by the Transport layer). 


NE TCNF > Font 
v04-000 CNF SDE 


CNR pointer 


> INPUTS: 11 
: R10 CNF pointer 
¢ 


COOCOCOCOOO COO O COCO OOOO OOOOOOOOOOOCOOSoOO rr 
OOONAUE WN OS OOO NOAM EWI 9 OO NAME WI OUOONIO 


0 40; 
0 41 ; OUTPUTS: RO SS$_WRITLCK if the item was not delete-able 
8 ? : SS$-NORMAL otherwise 
8 rt ALL other regs are preserved. 
0 46 CNFSDELETE:: Mark CNF for delete 
3BE 8F BB 0 4 PUSHR #*A<R1,R2, ee R4,R5,R7,R8B,R9> — wth 
7E O000°SF 3c 0 4 MOVZWL #SS$_WRITLCK.-(§P) e not deiete-able 
15 AA O02 €0 O 4 BBS aeNF SY FLG Cher. CNFSB. FLG(R10), sob; Att 18s then this is a no-o 
5B SA D1 O 5 CMPL RIOR R1T ; Ig the CNF actually the CNR? 
13 13 0 5 BEQL 50$ : If Ear then cannot delete 
28 BB O16 «COO 5 JSB @CNRSL_ACT_DELETE(R11) ; Call action routine for 
0 5 3 sqee tak rocessin ’ 
0D 50 «#€9 O 5 BLBC : If LBC then cannot delete it 
0 55 10$: SETBIT twfaye FLG ge HT: FLG(R10) ; Ub fe for delete 
0 5 SETBIT NETS$V gPURGE NETSGL_FLAGS ; Remember to purge the database 
00" pO 0 57 30S: MOVL S*#SS$_NORMAL , (SP)~ ; Overlay status code 
O3BF 8F BA 8 e : 50$: sy #°M<RO>R1,R2, “AS RG, R5,R7,R8,R9> ; Restore regs 


poh 
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r 1 : -SBTTL CNFSPURGE - Drain CNF entries marked for delete 
2 > CNFSPURGE - Drain temporary entries from CNF queue 
4 9? : The CNF is queue is scanned, starting at the root, and all CNFs which 
rt 8 ; are marked temporary are deleted. 
4 68 ; 
rs 8 3 INPUTS: R11 CNR pointer 
9940 7 > OUTPUTS: ALL regs are preserved. 
4 73 :- 
0040 74 CNFSPURGE: : ; Deallocate all temporary CNFs 
2C BB ag rk e hs @CNRSL_ACT_REMOVE (R11) ; Call action routine to do work 
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v04-000 CNFSINSERT - Insert/Replace a CNF entry ~$Fb= 1382 83:39:83 NETACP.SRC €) NETCNF MAR; 1 = 3) vO4 
rf re a ~SBTTL CNFSINSERT = Insert/Replace a CNF entry 
12 :* CNFSINSERT - Insert/Replace a database CNF entry 
44 § : Build a copy of the new CNF from the process pool and insert it into 
<2 ? 3 the database. 
44 5 3 NOTE: 
4h § : et The database scan co-routine dialogue eee 
bee , ; set below must be abortable via a RET ane 
O44 89 > INPUT: R11 CNR point 
44 : R10 Points S the utility buffer a new image in it 
bee 4! : R6 Pointes to old CNF entry if an 
044 38 > OUTPUT: R11 CNR pointe 
044 94; R10 Points y naw CNF if successful 
044 95; contains oot gion R6 otherwise 
0044 96 ; Ro -d. which qualifies” the error code in RO 
Bate 4 3 RO bah 
Oped +4 ; ALL other regs contain garbage 
0044 01 CNFSINSERT:: g jnoort/Reotace a database entry 
OOOO'CF DD 0044 b¢ PUSHL NET$G AGS ave current flags 
oece B SETBIT NETSV_ etre NETSGL_ aye t Setup for ‘‘internal'’ access 
Onee b2 : Apply default values to selected parameters 
56 DD 004 07 PUSHL 6 ; Save re 
20 8B 16 005 08 JSB @CNRSL_ACT_DFLT(R11) ; Call action routine 
56 8EDO 005 09 POPL R6 ; Restore reg 
1€ 50 =€9 b28 19 BLBC RO,17$ : If LBC then error encountered 
0099 13 ; Make sure all required fields are active 
52 0080 cB «(9E ~«2(0059)=—s 314 MOVAB CNRSL_VEC_MAND(R11) ,R2 ; Get pointer to list of field i.d.s 
59 86 0 Bae 15 10$: MOVL (R2)+,R9 : Get next field soe 
1 1 06 18 BEQL : If EQL then don 
06cB 30 ber 1 BSBW : Get descrip for vot afighe 
03 63 (OE 4 66 \8 BBC BNR cen Bt. (R3),15$ ‘ Br if ‘ 
0699 0 Q06A 1 BSBW GET LR : Else get "The a Mh, tren action routine 
EC 18 5 0 Bop 0 15$: BBS CKrSL RASK 810), 10$ : If BS then field is active 
50 0000" 8F C 0 é 1 MOVZWL Ages INSFAR ; Setup error status 
0 1 As § eS BRW 3; Take common exit 
7A 4 : ; Build a List of att -pereneters ¢ required to be unique and scan the 
7A 5 : database to see ghey are in fact unique. ‘his list is built a 
7A § 3 «=o the CNF pointed ee by R10 since this is exge gtes to be the utility 
7A ; buffer and should be Lacge ¢ enough (this eliminates the need for 
vA 3 3 another rather large buffer). 
52. 0c 3¢ 7A 0 MOVZWL CNFSW_OFF ~F REE (RI) R3 Get self-relative offset 
53 of Anse . ze 1 MOVAB  CNFSW"OFF “FREE (RIO) CRO), a3"; Get ptr to free space 
4 § MOVL av copy of pointer 
52 _0€ AA 6 6 MOV2WL CNFSW_SIZ_FREE(R10).R2 ; Get amount of free space | 
52 06 A A 4 SUBW #4 ,R2 : Account for end of List flag 


B 5 ' 
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31 19 0080 5 BLSS 328 :; If LSS then no tpace left 
54 O0E4 9 F § MOVAB CNRSL_VEC_UNIQ(R11),R4 ; Get pointer to List of field i.d.s 
3 D 4 30$:  MOVL ; Mark end of List 
4 dD 97 8 MOVL RL) 4+ RO ; Get next field i.d. | 
} 9A BEQL 5 :; If EQL then at end of List 
95 9C 40 BSBW ENF SG TL_FIELD ; Get the field value 
F E oF 41 BLBC ~=—_s«aRO ; If not_active then ignore it 
52. 0 A A rt: SUBW #12,R ; Need 12 more bytes 
1 1 OA 4 BLSS 32 3; If LSS the no space left 
0064 8 OA 44 BSBW SPCSCAN ; Try to do a special scan of key 
08 5 at QAA 45 BBS #1,R0,31$ ; Br if key recognize 
: 3 be at “6 MOVL R9,(R5)+ 3; Else, Enter field i.d. 
D 4 mOVa R7,(R5)+ ; Enter field value/descriptor 
dDE 11 0084 48 hee BRB 30$ : Loop 
s'-94 29 : Special lookup routine recognized the key, check status 
boee 26 : RO = Bit 0: Set if CNF found with key, else clear. 
boos e7 : Bit 1: Set if key is recogized, else clear. 
DB 50 £9 086 355 BLBC =—_—«RO, 308 ; Loop, if okay 
50 0000'BF 3c 0089 36 MOVZWL #SS$_DEVACTIVE,RO : Else, setup error return code 
gh 11 006 5 3; Take common exit 
50 0000°8F 3C O0C 28 32$: MOVZWL #SS$_INSFMEM,RO ; Setup status code 
oa ° 64 Bae 2B BRB 40$ : Take common exit 
00000004 00C7 61 35$: DLIST = 4 ; Offset for dynamic field Lis pointer 
00000008 00C7 6¢ SLIST = 8 ; Offset for static field List pointer 
00C7 6 PUSHQ § R4 3; Dynamic pointer is garbage, 
QOCA 64 3; Static pointer is in R5 
29° AF 9¢ Fe OOCA 65 CALLS #2,B°SCAN ; Scan for field already in use 
19 5 E Back 66 BLBC RO,40$ ; If LBC then something's not unique 
3901 re ; Create a copy of the new CNF 
occ 30 5Op1 70 6SBw CNF SCLONE :; Create a copy - clone returns in R10 
1350 €9 00D4 71 BLBC . ; If LBC then error 
0c40 8F BB Bede ? PUSHR #*M<R6,R10,R11> ; Save critical regs . 
24 BB 16 00DB 7 JSB @CNRSL_ACT_INSERT(R11) ; Perform any pre-insertion processing 
0c40 8F BA OOD 74 POPR #*M<R6,R10,R11> ; Restore regs 
OA 50 58 OE 75 BLBS RO ; If LBS then successful 
O000'DF 6A E H 6 408 INSQUE (R10) ,@NETSGQ_TMP_BUF : Else queue ‘‘new’’ CNF for deallocation 
BEA of ; Since the ingert operation has failed, copy the old CNF pointer to 
EA 7 ; R10 since R10 is used to return the CNF representing this entry | 
OEA 0 ; which is Linked into the database regardless of the success or | 
OEA 1 ; failure of the attmepted insertion. R10 will return the value 
+ § ; zero if there was no old CNF pointer. | 
SA 56 D0 QOEA 384 MOVE RG .R10 : Copy the “old” CNF pointer 
0B sii pee 5 458 BRB 70$ 3; Take common exit | 
4 $ ; Insert the new CNF into the database | 
0c40 8F BB EF § PUSHR  #*M<R6,R10,R11> ; Save critical regs 
4 16 OOF3 0 JSB acnRs ~ INSERT (R11) > Perform the insertion | 
0C40 8F =BBA F6 91 POPR #*M<R6,R10,R11> ; Restore regs | 
j 
| 
j 


——————— | 
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-000 CNFSINS Insert/Replace a CNF entry “SEP-1984 02:17:5 NETACP.SRCINETCNF MAR; 1 (7) | 
0000'°CF 8ED 92 70$:  POPL NETSGL_FLAGS : Restore flags 
0B gf g 8 38 BLBC nO B98 ; If LBC then error | 
01 €1 OT 94 BBC #CNFSV_FLG DELETE - : If BC then no need to delete new | 
06 0B AA 1 95 CNF$B_FLG(R105,80$ : entry | 
1 36 SETBIT NETSV PURGE - ; Else remember to purge it from the 
1 9 NETSGL_FLAGS ; database | 
05 01 38 80$: RSB 3; Done 
1 9 
1 400 
ae | 
! Z § SPCSCAN: ; Try to do special scan of database | 
1 405 : The spac jel Lookup routine will be called to try to do a 
1 238 ; ‘“‘quick’’ Lookup of the CNF, given the paren: key. If the | 
4 40 ; key is not recognized then bit 1 of RO is returned clear. 
1 408 3 If the CNF is found, then the low bit of RO is set, else 
o1 rtf 3 it is clear. 
4 411 ; If the hey is not recognized, then the key is inserted into | 
4 tig ; the key List for the long scan routine to check. 
5A DD 01 414 PUSHL R10 : Save regs | 
SA D4 O1 415 CLRL R10 3; Start from beginning 
38 BB «O16 «OCO*° 2i% JSB @CNRSL_SPCSCAN(R11) ; Check for quick lookup of key 
0c 50 O01 €1 4 4 BBC #1,R0,20$ ; Br if key not recognized 
+ ret : Special lookup routine recognized the key, check status 
01 421 : RO = Bit 0: Set if CNF found with key, else clear. 
3 ? g $ Bit 1: Set if key is recogized, else clear. 
0950 €9 01 424 BLBC ~=—._—«RO, 4608 : Br if not found, okay 
56 5A D1 O01 425 CMPL R10, R6 : Else, is this the same CNF? 
04 12 01 4 : BNEQ 40S : Br if no, bad CNF 
1 4 CLRBIT #0,R0 ; Else, indicate okay 
5A 8EDO 01 428 40$:  POPL R10 > Restore regs 
05 4 429 RSB ; Take common exit 
1 430 
0199433 
ia 
! 2 5 : Make sure those fields whose value should be unique are unique | 
0400 ! ? § SCAN: -WORD “M<R10> 3 | 
. : 63s : Check if argument List is empty | 
50 D4 01 441 ° CLRL = RO ; Assume success, low bit flipped below | 
04 Bs D 1 44 TSTL oo (ahem s Empty argument List? 
as 443 BEQL §=-:10 : Br if yes, return immediately | 
52 90 D 1 445 MOVL #NFBSC_OP_EQL,R2 ; Get action routine index 
SA B OD 1 44 MOVL ; Start at begining of List 
30 8B O16 47 sane JSB @CNRSL_SCANNER(R11) : Call scanner to prepare scan | 
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ation data base access routine 
- Insert/Replace a CNF entry 


70$: 


5 aah tel al lah ee tel ek Deke ek ak ak ak Dada 


PAAQARQXQEMNIAANTIITIUIUT 


WO ODONOUS Wt O0 


1 100$: 


105$: 


110$: 


5 
1 


‘ Get next CNF block 


MOVL #CNFS_ADVANCE,RO : 
JSB a(sp)t : 
BLBC RO, 1008 : 
CMPL = R10, R6 : 
BEQL 608 : 
MOVL  SLISTCAP),DLIST(AP) : 


: See if any fields in the List 


already in the database. 


DLIST (AP) .RO ; 
MOVL  (RO)+,R9 : 
BEQL 6 3 
MOV (RO)+,R7 : 
MOVL  RO,DLISTCAP) : 
BSBW = GE f_DSC_1 ; 
BSBW COMPARE ; 
BLBC ~—_- RO, 70 : 


3 We are done. 
BBCS #0,R0,110$ 


~ + fae #SS$_DEVACTIVE,RO 


S2$EP=19B6 02:19:82 ENETACE. SREINEY CNF RAR; 1 


Page 


4 “Give me the next CNF"’ 
co-routine, he calls us back 
th a JSB a(SP5+ and status in RO 
BC there was none 
his the CNF bein 
f EQL yes nore i 
Start at the op of parameter List 


match the any of the fields in the 


oer ze 


replaced? 


Get pointer to next parameter 

Get parameter i.d. 

If EQL then done with this CNF block 
Get parameter value/descriptor 

Store pointer 

Get field semantics 

Make field comparison 

If no match, loop on next field 


The RET instruction aborts the scanner co-routine. 


If BC in RO then no unique field 
violations were detecte 
Indicate unique field violation 


; Return status in RO 


em 
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CNFSCOPY = Copy a CNF to another -SEP-1984 :17:5 NETACP.SRCINETCNF MAR; 1 (8) 
i? t4 4 -SBTTL CNFSCOPY = Copy a CNF to another 
\f ? 1 ; CNFSCOPY - Copy one CNF entry into another 
17 & : ; The contents of a source CNF block are copied to the destination CNF block. 
17 484 ; No string syoreye conoress ton takes place, but any additional storage space 
1? ? 5 ; in the destination CNF block are reflected in its CNFSW_SIZ_FREE field. 
17 4 5 3 INPUTS: R11 CNR pointer 
17 4 8 3 R10 Destination CNF pointer 
\e ? 8 i RB Source CNF pointer 
17 491 ; OUTPUTS: RO SS$_NORMAL if successful 
3128 138 ; SSS_INSFMEM if destination CNF is too small 
8158 494 ; ALL other registers are preserved. 
17 495 ;- 
170 496 CNFSCOPY: : 
OO7E 8F 170 8649 PUSHR #*M<R1,R2,R3,R4,R5,R6> : Save ay 
50 0000'8F C 0174 498 MOVZWL 9 #SS$_INSFMEM,RO 3; Assume destination CNF is too small 
56 08 AA 3C 0179 «499 MOVZWL CNFS$Q_SIZE(RIO) RO ; Save size of target CNF 
08 AB «656 «6B1 «(017D =: 500 CMPW CNFSW_SIZE (RB) : Is it big enough? 
18 «oF 181 01 BLSS $ : If LSS then too small 
6A 68 08 As 28 \33 8 MOVC CNFSW_SIZE(R8),(R8),(R10) ; Copy CNF ; 
08 AA 56 8 0188 50 MOV CNFSW_SIZE (R10) ; Restore original size 
56 08 AB Ae 018C 504 SUBY F$w_SIZE(RB) ,R6 ; Get difference in size 
OE AA 56) «6A0 (0190 «= 505 ADDW R6,CNFSW SIZ FREE(RI0) ~~; Update the amount of free space 
BA 0194 238 BICB NFSM_FCG_CRR!- ; Block is not a CNR 
0195 0 FSM_FLG_DELETE!- ; Block is a senperery CNF or marked for d 
0195 508 FSM_FLG_ACP,=- ; Block is a catch-all used by the ACP 
0195 509 CNFS$B-FLGTRIOS : Init flags 
pI38 510 MOVL S“#SS$_NORMAL ,RO ; Indicate success 
198 511 108: POPR #°M<R17R2,R3,R4,R5,RO> ; Restore regs 
O19F 512 RSB ; Done 


FOS | 
TCNF - Configuration data base access routine 16-SEP-1984 01:12:4 AX/VMS Macro Vv04-00 Page 14 
yb4+000 CNFSCLONE - Compress a CNF entry -SEP-1984 83:19:83 NETACP.SRCINETCNF MAR; 1 ° (9) | 
i. i k -SBTTL CNFSCLONE = Compress a CNF entry 
1A 1 ; CNFSCLONE - Create a compressed version of a CNF entry | 
1A 18 : A resultant CNF block is allocated and initialized. The contents of a source 
1A 19 ; CNF block are copied to it such that the string storage space is 
> y : unfragmented. 
189 : ; INPUTS: R11 CNR pointer 
? : R10 Source CNF pointer -- usually utility buffer 
i 5 : OUTPUTS: R10 New CNF address -- the old R10 value is lost 
1A § 3 RO SS$_NORMAL if successful 
Bia , ; SS$_INSFMEM otherwise 
8148 3 ; ALL other registers are preserved. 
Sia0 1 CNFSCLONE:: 3; Create a compressed copy of a CNF 
OO7E 8F BB O1A0 § PUSHR #*M<R1,R2,R3.R4,R5,R6> ; Save regs 
56 SA 00 Bias 2 MOVL R10,R6 3; Save a pointer to the old CNF 
BAe i : Allocate new CNF block and initialize its fixed portion 
50 0000°8F 3C O1A7 3 MOVZUL #SS$_INSFMEM,RO ; Assume destination CNF is too small 
SA Be O1AC§3=—:« 538 CLRL R10 ; Zero pointer to the new CNF 
51 OC AB C Bias 539 MOVZWL CNRSW_SIZ_CNF(R11),R1  ; Get minimum block size 
7s ag AO 018 540 ADDW CNFSW_SIZ_USED(R6),R1 ; Add in string space used 
2 1D 0186 541 BVS 10$ : If VS the >65K 
FE4S* 30 0188 2%6 BSBW NETSALLOCATE z Allocate block from ACP pool 
5A 50 €9 O1BB 54 BLBC RO,1 ; Br on error | 
5A 52 00 OBE 544 MOVL R2,R10 3; Copy block pointer 
51 DD pitt 45 PUSH 7 3; Save size 
OC AB 2C «(01C3 46 MOVC CNRSW ie CNF(R11),- ; Copy the fixed portion of the block 
62 51 00 66 01C6 47 (R6) ,FO,RT, (R2) 3 and zero the remainder 
08 AA BE F7 OICA 548 CVTLW (SP)+,CNFSW_SIZE(R10) ; Store size for deallocation 
8A O1CE 549 #CNFSM_FLG_CNR!- ; Block is not a CNR 
O1CF 550 CNFSM_FLG_DELETE!- ; Block is a ceuporary CNF or marked for del 
O1CF 86551 CNFSM_FLG_ACP,- ; Block is a catch-all used by the ACP 
0B AA 07 O1CF 33 CNF$B-FLGTRIOS : Init flags 
005 30 3108 55 BSBW CNFSIN ; Init remainder of CNF 
55 0 C 01D 554 MOVZWL CNRSW_MAX_INX(R11),R5 ; Get max field index 
3 11. 0109 555 BRB 40$ ; Jump to the end of the loop 
0108 28 10S: $ 
O18 2 ; Find the next string field | 
53 0128 (B45 DE 01DB 35 MOVAL CNRSL_SEM_TAB(R11)(R5J,R3 ; Get address of field semantics 
08 ED O161 560 CMPZV #CNRSO_SER_TYP,- : Is it for strings ? 
63 0 Ht 61 #CNRSS_SEM_TYP,(R3),-  ; 
04 1E 66 #CNRSC_SEM_STR : ; 
2A «12 3 o7 BNEQ 40$ 3; If not branch to try next field | 
QO1E 65 : Move the et. if its active. Clear the mask bit before the call 
if 66 ; to PUT_STR so that the CNF$W_SIZ_USED is not erroneously updated. 
25 18 AA 55 €5 OIE o8 BBCC R5,CNFSL pase (B19) 008 : Br if field is not active . 
2163 OF €0 OQIED § BBS #CNRSV_SEM_RT,(R35),40$ ; Br if “field’’ is actually a routine 
00 EF O1F1 0 EXTZV #CNRSV~SEM~OFF ,~ ; Get byte offset from top of 
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; Move the string to the new CNF 


MOVZWL STR ugh FcR. RB 
ADDL 
MOVZWL sth. =LNG(RO), R7 
BSBW 


$ 
BLBC " Os 
BBSS Rd-CNESL_MASK(R10) 408; 
SOBGEQ R5,10$ 
; Done 


MOVZWL S*#SS$ NORMAL ,RO 
room #*MCRITRZ,R3,R4,R5,RO> 


~$Ep=198e 62:19:32 ENETACE. SR 
f 


NRSS SORE ED 


Macro v04-00 P 
SRCJ NETCNF MAR; 1 see 
3; CNF to the field 
Get source CNF field address 
3; Get dest. CNF field address 


; Get self-relative offset to string 


; Make it a pointer 
; Get its size 
; Store it 


; If LBC then error 


Mark the field valid 


; Loop for each field 


: Indicate success 
; Restore regs 


TCNF - Configuration data base access routine 16-SEP-19 1:12:4 AX/VMS Macro Vv04-00 Page 1 
+ CN NEST Nit - Initialize CNF entry -SEP- =}382 93:45:83 NETACP.S REIN NETCNF .MAR; 1 . i$) 
1 59 LSBTTL CNFSINIT = Initialize CNF entry | 
1D 38 : CNFSINIT - Initialize CNF onery | 
18 ae: : ENFSINIT JUTL - Initialize the utility buffer as a CNF entry 
1p 36 : : A CNF block is initialized. | 
1D 98 ; INPUTS: R11 CNR pointer 
1D 99; R10 If CNFSINIT then ptr to CNF block to be initialized. 
1 ° , 3 If CNFSINIT_UTL then scratch 
1D ? § 3: OUTPUTS: R10 If CNFSINIT then unchanged. 
1D : If CNFSINIT = ee A to utility buffer 
8 1D 604 ; RO SS$_NORMAL 
8 18 tit 3 SSS_INSFMEM if tNF “block is too small 
8 + ope ; ALL other registers are preserved. 
051D 609 ENFSINIT_UTL:: : Init utility buffer as a CNF BLOCK 
SA OOO00'CF DO O021D 610 AOVL NETSGL_UTLBUF ,R10 : Point to the utility bul fer 
1000 8F 860 OS 2 611 MOVW #NETSC-UTLBUFSIZ,- 3; Setup its size 
AA 3 g ol¢ CRFSW_SIZE(R10) 
02 8 614 ASSUME CNRSC_MAX_INX EQ 95 ; One bit_in mask for each parameter 
0228 615 : index (95 (zero indexed) => 3 lwords) 
18 AA 7C bs 8 616 CLRQ CNFSL fase (818) ; Clear first 2 mask longwords 
20 AA + DS 0228 617 CLRL CNFSL_MASK+8(R10) ; Clear Spice mask longword 
12 AA B4& O022E 618 CLRW CNFSW_ MD eR1O} : Init CNF i.d. data 
OB AA 9% 8 $33 CLRB CNFS$B_FLG(R10) :; Zero all flags 
0234 621 
0234 6 § CNFSINIT:: : Initialize a CNF block 
50 0000'8F 3C 8 4 6 MOVZL eset ren RO : Assume error 
OC AB BI 9 624 CMPW NRSQ_SIZ_CNF(R11),- ; Is block big enough ? 
08 AA 023C 625 che $0 “SIZE(R105 ; 
17 IW O23E 6 § BGTRU 10% ; If GTRU then CNF is too small 
17 90 0240 6 MOVB wormet ptt : 
OA AA 0242 628 $8. fYPECR R10) ; Enter type 
10 AA B4 44 629 CLRW CNFSU” fe USED(R10) ; Init free spaced used for strings 
oc AS 47 630 SUBW3 #CNFSO_OFF_FREE,- ; Setup self-relative offset to free 
OC AB 0249 631 cuRey -SIZ_CNF(R11),-; space 
OC AA 0 4B 6 é EN NFSW-OFF-FREE(R105 ; 
OC AB AS 40 6 SUBW3 CNRSW_SIZ-CNFTR11),- ; Setup amount of free space available 
08 AA 0 30 634 CRF Su “SIZE(R105,- 
OE AA 52.635 NFSW~SIZ_FREE(R10) ; 
50 00° oO 8 54 636 MOVL sAasss NORMAL >RO : Indicate success 
05 57 637 10$ RSB 
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- Search for selected CNF 5-SEP-1984 93:48:63 ENETACP. SREINETCNF OMAR: 1 - (11) 
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-SBTTL CNFSKEY_SEARCH = Search for selected CNFs 


+ 
CNFSKEY_SRCH_EX = External find CNF via match of supplied parameter 
CNFSKEY_SEARTH = Internal find CNF via match of supplied parameter 


; The CNF List is search until a block is found in which the supplied key 
matches the appropriate field. A match is determined by dispatching to the 
; compare routine identified by R1. 


if R10 is zero on input then the search begins at the CNR (root), else R10 
S assumed to be the address of a CNF and the search begins with the CNF 
; following the R10 CNF. 


3; INPUTS: R11 = CNR address 

3 R10 = CNF address or zero 

3 Rg FLD # in bits 0-15, Mask ID in bits 16-23 

3 (or NFBSC_WILDCARD to match any CNF entry) 
$ R&8 = Key value if bit, byte, word, or longword parameter type 
¢ 


Key pointer if key is a string 


AEM NII BE EPPS EW TO 
AO OONAUE WO OONOUS Wit" O00 


© al * ahah sh th Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab ab Ab db Ab db db db bbb db hb cb db db cb db dub edb db sb hb cb Al Me * J 
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u 
S 
0 R7 = Key length if key is a string 
0 R1 = Search function 
8 4 RO = Error code to be returned if CNF is not found 
; o R7/R8 are not supplied if R1 = NFBSC_OP_FNDMIN or FNDMAX. 
8 8 O98 ; OUTPUTS: mio actress of matching CNF if search is successful, else 0 
: e 
0 666 
8 : roth Unchanged otherwise (SS$_ENDOFFILE if entered with LBS) 
0 : 669 ALL other registers are preserved 
0988 | ort 
0 : ore NFSKEY_SRCH_EX:: ; Locate CNF via key 
43 4 0 67 CLRL -(SP) 3; Terminate key List 
_ D O25A 674 mova R7,-(SP) ; Store key value 
51 DD 0250 675 PUSHL R11 ; Store type of comparison 
59 OD O25F 976 PUSHL R9 :; Store field | 
> = US .:) OF MOVL SP,R1 ; Set address of key List 
16 10 4 678 BSBB CNF SSEARCH_EX ; Call external search routine 
SE 4 C€ 66 679 ADOL #5%4,SP ; Cleanup key List 
0 4 on0 RSB 
8 6A eke CNFSKEY_ SEARCH: : ; Locate CNF via ke 
43 4 6A 6 CLRL -(SP) ; Terminate key Lis 
7E «65 D 3 6C 684 mova R7,-(SP) ; Store key value 
2 OD Sf 685 PUSHL R11 ; Store type of comparison 
9 ODD , ae | $ PUSHL R ; Store field ID 
51 3 D © MOVL SP,R1 ; Set address of key list | 
1 1 2 688 BSBB = CNF SSEARCH : Call internal search routine 
5E 14 ? 7 689 ADDL #5*4,SP ; Cleanup key List 
0 78 690 RSB 


1 = Gar a9 
RO = Low bit set if search is successful 


= 


ae 
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- arch for CNFs by List of mits y Oh: 49383 ENETACP. SREINETCNF MARS 1 - (18; 


-SBTTL CNFSSEARCH = Search for CNFs by List of keys 


CNFSSEARCH_EX = External find CNF via match of supe | ted list of keys 
CNFSSEARCH = Internal find CNF via match of supplied List of keys 


The CNF List is searched until a block is found in which the supplied List 

of search keys matches the appropriate fields. The List of keys supplies 

the field IDs to be conpered, the type of comparision for each field, and 

the actual key value. he CNF is matched if all of the search keys match 

the appropriate fields in the CNF (AND-type search). 
| 
| 


vO4=000 


a | 
2 

Palme} 
PO 
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if R10 is zero on input then the search starts at the beginning. Else R10 
S assumed to be the address of a CNF and the search begins with the CNF 
following the R10 CNF. 


To optimize the search of a database, if there is only one key and the 
qoor ene is EQL then we will call a special SCAN routine to try to optimize 
ookups. 


Inputs: 


CNR address 

Starting CNF address, or zero 

Error code to be returned if CNF is not found 
Address of a List of search keys: 


o— 
nhune 


, 


(NFBSC_OP_xxx) 
(8 bytes) 


Search key value 
(descriptor or longword) 
*SSSSSSSESSSSSESSESSESESSESESESSSE 


Second field ID 


Secondary key value 
‘ (descriptor or longword) 
SSSsssssssssssssssssssssss 


: Type of comparison 
' (repeat for each key) 


(terminates List) 


ee ee eee ee ee eee eee ees 


If the FNDMIN, FNDMAX or FNDPOS operators are used, then only 
one search key is allowed. 


The key value quadword in the key List is ignored when used with 
the FNDMIN or FNDMAX operators. 


Outputs: 


PIPPI IPIPIPDPIPYNIPIPYPDPPININIPNIPINIPIDINYNININININIPYPIPYIPINIPINYAIMYNINIAPIPIPIPPIPIPIPIPYPIPIPIPINPINPININY ss BH 
See eee eee ens 
POOOODOIOODOOOAAOAOAOAOODOAOAAAOAOAAOAOAAOAIAOOAOAAOAOAIOAIAAAAIAAAOAAAOAAOAAOAAOO Oc 
NSN NNN NNN NDT NIA AOS SO 
BPE PEE EF PAM RIPININPINIPININIDS 2 9 OO 2 QOOOOODOOCOOCOWOOOOOONO WO 
CONAN 0 OD NAUES UN $9 OD NAUE WIN 9 OD NA UE WW O OONO UE WIN" OOONOUFSwT 8 

Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Se Se Se Sets Sse Ge Ge Ge Ge Ge Ge* 
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TCNF = Configuration data base access routine 16-SEP-1984 745  VAX/VMS Macro v04-00 Page 19 
yO4+000 CNESSEARCH © Search for ENS be Lint ote ScSEPHTORG B2:19z33 ENETNCE. CRETE TENE MAR: 1 9° 12) 
7C «49749; 
, ee 9 3 R11 = Address of CNR 
7/7 wate R10 = Address of matching CNF if seered is successful, else 0 
Be ¢ 5 RO = Low bit set if search is succes 
4s 4 i : Unchanged otherwise (SS$_ ENDOFF ILE if entered with LBS) 
i 738 : ALL registers are preserved. | 
7C Fag ine FSSEARCH_EX:: : Jeg CNF via List of keys 
OOOO'CF oD 45 £38 PUSHL NETSGL_FLAGS ave current flags 
8 75 CLRBIT NETS$V LNTRAL NETSGL FLAGS Indicate external access rights 
OA 11 § £60 BRB SEARCA 
: 166 CNFSSEARCH:: ; Locate CNF via list of keys 
QOOO'CF DD PUSHL NETSGL_FLAGS ve current flags 
8 £64 SETBIT NETSV_ INTRNL, NETSGL “FLAGS ; “ladicate internal access rights 
0 9 766 SEARCH: 
9 76 SETBIT weTSy. READ,NETSGL_FLAGS ; Access will be for read only 
05 50 + 029 768 BLBC : Invalid error code if LBS 
50 0000°8F 3c 0298 769 MOVZUL Reese EwoorF LEC : Make it a valid error code 
O3FF 8F 6B 8 Ap rey 10$: PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,RO> = Save regs and default error sta 
O2A4 ore ; If there is only one key, and that operator is EQL then 
02A4 77 ; we will call the special scan routine. A. if there are two 
8 ~~ gre : search keys and the second is a WILDCAR 
04 Al 00 DI O2A4 776 CMPL #NFBSC_OP_EQL,4(R1) ; Is this an equals operation? 
28 12 O2A8 777 BNEQ 15$ ; Br if not, general scan 
10 Al 05 Q2AA 778 TSTL tl 3; Only one search pos 
0B 13 O2AD 779 BEQL 13$ ; Br if yes, do special Lookup 
10 Al A f 8 ar reo ag wuresc. WILDCARD,16(R1) ; a3 gh. second a wildcard? 
; Br no 
20 Al ug 0285 ree TSTL eget : Is this the end? 
18 12 8 B8 78 BNEQ 15$ ; Br if not, do complete lookup 
-, an BA 784 13$: MOVL (R1),R9 : Get the search field ID 
57 08 Al 7D Q2BD 785 mMOVa 8(R15,R7 3; Get the search key value/desc. 
51 DD 02C1 76 PUSHL 1 ; Save address of key List 
38 ee 16 cs S78 JSB @CNRSL_SPCSCAN(R11) : Else, do special scan 
1 8ED0 C6 «6788 POPL R1 ; Restore address of key list 
05 50 O11 €1 C9 4 BBC #1,R0,15$ : Br if the key not recognized 
6A 50 €8 O2CD 790 BLBS RO,79$ : Br on success, else fall thru 
68 11 0200 791 BRB 80$ : Else, return error 
56 51 00 738 15$: MOVL R1,R6 ; Copy address of key List 
De eee : Call co-routine to prepare for scan 
30 BB S16 3 a JSB @CNRSL_SCANNER(R11) 3; Initialize scanner co-routine 
. e : Initialize min/max selection storage (OP_FMDMIN or OP_FNDMAX only) 
QOOOO'CF D4 3 0 ELRL SEL eet arf : Indicate no CNF matched | 
O004'CF D4 D 1 CLRL Select LUE ; Make current min/max a null string 
Ooos'cF O01 CE 4 8 MNEGL ELECTS VALUE +4 : Make current min/max infinity 
£ 4 : Skip to the next CNF 
E5 5 3 
| 


. @ 


NETCNF = Configuration data base access routine 16-SEP-1984 01:12:45 VAX/VMS Macro v04-00 Page NET 
v04-000 CNFSSEARCH - Search for CNFs by List of g- En 4 3:19:93 NETACP.SRCIJNETCNF .MAR; 1 ° (7) vO4 
50 00 9A F § 20$: MOVZBL #CNFS_ADVANCE,RO 3 Say “Give me the next CNF'’ 
9E 16 E JSB a(sPp)? : Tell co-routine, he calls us back 
ba 3 3 with a JSB a(SP)+ and status in RO 
28 50—s«éE os 4 BLBC RO,70$ ; If LBC there was none 
ED 14 ; Using the List of keys, compare each of the key values with the 
Ep \§ 3 corresponding fields in the CNF to determine if the CNF matches. 
52 56 OD ED 814 MOVL R6,R2 : Pick up original keylist pointer 
36 8s 09 & 15 25$: MOVL (RE)+ RO 3; Get next seareh field ID ¥ 
1 é 18 BEQL 60 :; If none left, then we matched! 
be F 1 TSTL (R2)+ 3; Skip type of comparison for now 
57 D F 18 mova (R2)+,R7 3; Get search key value 
01 D1 0 FA 819 CMPL  R9,#NFBSC_WILDCARD ; Wildcard search key? 
Fi 13 OOFD 0 BEQL § : If so, then match this field 
0307 30 8 FF 1 BSBW GET_DSC 3; On return: 
10 50 ~=€9 oe 8 ¢ BLBC RO,70$ 3; R10 = addr of CNF ptr 
030 § ; RS = bit offset to bit from the 
0305 4 3 top of mask vector 
0305 825 ; R&S = offset to parameter from top 
0305 8 § 3 of CNF, or routine address 
8 05 $ ; R3 = ptr to field semantics 
05 8 ; RO = LBS if successful 
52 DD 0305 829 PUSHL R2 3; Save pointer into key List 
52 F4A2 00 0307 830 MOVL -12(R2) ,R2 3; Get type of comparison for this key 
3A—So«d10 Bene 831 BSBB COMPARE 3; Make field comparison 
52 8ED0 030D HE POPL R2 ; Restore key List pointer 
d2 50 =—E9 bai9 83 BLBC RO,20$ : If key doesn't match, skip this CNF 
BRB gi t does match, compare next field 
dB Cid? 0313 834 25$ f itd fi 
3 e could not match any s. Return default error to caller. 
0313 538 W ld h CNF q defaul Ll 
Bale 838 708: $DISPATCH 4(R6),<- ; Are we searching for min/max CNF? 
$12 839 <NFBSC_OP_FNDMIN, 75$>- :; Branch if so 
0315 74 <NFBSC_OP_FNDMAX, 75$>> 
50 02 9A O31E 841 728:  MOVZBL #CRFS~QUIT,RO : Say "IT quit without finding CNF' 
3 16 8351 Ha JSB asp)? : Tell co-routine, returns clean stack 
1 11 33 ; a7 BRB 80$ 3; Exit 
$3 5 =6845 ; We have conph exed a full scan of the database for the operator 
325 328 : functions NFBSC_OP_FNDMIN or NFBSC_OP_FNDMAX. Now return the 
325 rt ; CNF which was determined to have the minimum or maximum value. 
5A 0000'CF 09 3 49 75$: MOVL SSLECT CHF RIO ; Return selected CNF 
|; a " 29 BEQL $ ; If none, return failure 
: 26 ; We have matched a CNF. Return it to the caller. 
50 03 00 C 54 608 MOVL #CNFS_TAKE_CURR,RO ; Say “I want this one’ 
06 04 ag D1 F 55 CMPL 4(R6)7MNFBSC_OP_FNDPOS ; Are we searching for position? 
is H 2$ BNEQ 65$ : If NEQ then no = 
50 D 5 MOVL S“#CNFS_TAKE_PREV,RO 3 sey I want the previous block 
3 is 8 28 $38: JSB a(SP)+ 3 Tell co-routine, returns clean stack 
gf 2 sh . A 59 79$: MOVL S*#SS$_NORMAL , (SP) 3 5etup uccess status code 
FF 8F BA D 860 80$:  POPR #*M<ROTR1,R2,R3,R4,R5,R6-R7,R8,R9> ; Restore regs 
000° CF BED) 41 B61 POPL  NETSGL_FLAGS : Restore flags 
0 46 62 RSB 
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64 , -SBTTL COMPARE = Compare CNF against keys 


Macro Vv04-00 Page 
SRC IJNETCNF .MAR; 1 


S$ 
P. 
COMPARE = Compare CNF against a key value 

; Inputs: 

ddress of CNF 

Key value ; 

it offset to ‘valid’ bit from the top of mask vector 
ffset into CNF for parameter data 


ointer to field semantics 
Type of comparison 


A 
= 
B 
0 
Pp 


Outputs: 
RO 


True if matched, else false. 


COMPARE : 
The 'BSBB COMPARE_ACT’’ cannot be called to setup the condition 


codes prior to the dispatch since the SDISPATCH macro expansion 
includes a CASE instruction which modifies the condition codes. 


109 C9 C9 C9 G9 09 C9 C9 08 INI NS SII NS SS NIO OOOO 


OO NONE WI OOOO NE WIN 9 OOD NAME WIN 9 OD NOA UNE WIP 0 OONOUE UW" OUOONOU 
A 
z 
_ 
ow 
Sad 
o 
oO 
vo 
a 
~ 
» 
& 
= 
x 
m 
~< 

t 
a 
~ 
» 
Cc 
v 
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SDISPATCH R2,<- 


<NFBSC_OP_EQL, KEY_EQL> =; Match if EQL 

<NFBSC_OP_NEQ, KEY_NEQ> = f KEY NEQ CNF field 

f KEY GTRU CNF field 

f KEY LSSU CNF field 
. e minimum KEY value 

<NFBSC_OP_FNDMAX, KEY_MAX> = e maximum KEY value 

<NFBSC_OP_FNDPOS, KEY_LSSU> -; Match if KEY LSSU CNF field 


> 
BUG_CHECK NETNOSTATE,FATAL ; Index is unknown 
KEY_EQL: BSBB COMPARE _ACT ; Compare the fields 
B MATCH Br if KEY is EQL CNF field 
BRB NO_MA 


KEY_NEQ: BSBB COMPARE _ACT : Compare the fields 
BN MATCH ; Br if KEY is EQL CNF field 
BRB NO_MA 


KEY_GTRU: BSBB COMPARE _ACT : Compare the fields 
+ a mig ; Br if KEY is GTRU CNF field 


WAWWAAIA AAAI AAA WIAA ANU IAIN 
© al ah ah ah hb db Abed eh ee ee ee ee ee et et el et et et et et et et et et et et et et et et et et et et et et et et et et 


AAO 
MmMoPruviiwm TSSSSaa neo a tt 


o -2FO —~—MO —WO 


KEY_LSSU: BSBB COMPARE _ACT ; Compare the fields 
MATCH ; Br if KEY is LSSU CNF field 


ee tb a bat a 


KEY_MAX: MOVQ SELECT _VALUE,R7 ; Get the current min/max value 
BSBB COMPARE _ACT : rompere the fields 
NO If GEQU current KEY is still maximum 
uPbB Else update to new max value 


57 0004" 


OOOO 00000 00000090909 09 09 09 0d G9 0D G9 C9 CD CO CD 


one PF FOTO PUTO wes 
Ovi MMO f£OFT PM OW 
SSN NNOOO 


~~ ey 
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NE TCNF = Configuration data base access routine 1g7se= 138% 0416363 AX/VMS Macro V04-00 Page $6 
v04-000 COMPARE = Compare CNF against keys -SEP-1984 02:17:5 NETACP.SRCINETCNF .MAR; 1 (13) 
921 
57 O0006°CF 7 ¢ KEY_MIN: MOVQ SELECT_VALUE,R7 ; Get the current min/max value 
i BSBB COMPARE_ACT ; roapare the fields 
OA 18 eke ¢ BLEQU NO_MA ; If LEQU current KEY is still minimum 
0000'CF rs 0 9 9 § UPD: MOVL R10,SELECT_CNF ; Update the current matched CNF 
0004 'CF 0 D 3 MOVQ RO, SELECT_VALUE ; Update the current KEY value 
50 94 9 g el NO_MA: CLRB RO ; Indicate the search is to continue 
05 + 4 9 RSB 
50 01 9 9 9 § MATCH: MOVB #1,R0 3; Indicate search is over 
0 9 9 RSB 
9A 8-934 
SA 88 
9A ; ? : Action routines for comparisons 
94 939 COMPARE_ACT: : 
1063 0 EO 039A 940 BBS #CNRSV_SEM_RT,(R3),20$ ; If action routine, call it now 
O5 ED 039 94) CMPZV = #ACNRSV_SEM_TYP,- ; If data resides in bitmask in CNF, 
00 63 0 03a) 4g #CNRSS_SEM-TYP, (R3) ,ACNRSC_SEM_BIT 
- 3 BaA 94 BEQL 3 ; then skip the tol Loving. else, 
51 54 SA C1 Q3A5 944 ADDL3 =R10,R4,R1 3; Get address of descriptor 
51 6 D0 GBA 34s MOVL (R15 ,R1 : Pick up a Longword of data 
02c7 8630 AE 349 208: BSBW GET_RT_FIELD ; Else go get the info, return with: 
0381 948 ; R1 = address of longword str desc, 
0381 949 3 or binary value 
0381 950 ; _RO = LBS if and onty if success 
57 18 AA 55 #4€1 Q381 951 30$: BBC R5,CNFSL_MASK(R10),210$ ; Br if field is invalid 
08 EF 8 336 EXTZV #CNRSV_SEM_TYP,- > Get parameter type 
7E 63 03 95 #CNRSS~SEM-TYP, (R3) ,-(SP5 
0 Bee SDISPATCH (SPY+,TYPE=L,<- 3 Dispatch by paramater type 
9 228 <CNRSC_SEM_B, 100$>,- ; Byte 
0 95 <CNRSC_SEM_W, 110$>,- ; Wor 
8 328 <CNRSC_SEM_L 13833 0 3 Longword 
95 <CNRSC_SEM-BIT, 130$>.- ; Bit 
269 : <CNRSC_SEM_STR, 160$>,- ; String descriptor 
3e8 BUG_CHECK NETNOSTATE FATAL ; Type is undefined 
51 3} 4 ace 100$: novzBi. Ri get ; Get field 
51 | Ht 308 110$: pOveul. 4 at ; Get field 
07 63 +3 £1 oe8 130$: BBC #CNRSV_SEM_RT,(R3),140$ : Br if “‘real’’ CNF field 
51 $1 1 EF 38 EXTZ2V #0,41,R1,RT : Else get low bit of value setup by 
970 3; action routine 
.. 971 BRB 150$ 3; Continue 
51 6A 01 5 EF a6 1308: EXTZV) = R4,#1,(R10),R1 : Get the bit value 
51 8 01 9735 150$:  CMPL R8,R1 3; Setup condition codes 
20 «11 5 BRB 2068 > Dispatch 
4 0 76 160%: ®68BS #CNRSV_SEM_RT,(R3),165$ ; If real string, 
51° $3 of FS 395 ADDL3 R10,R47R1 ~ ; Get address oF descriptor in CNF 


B 6 
tion data base access routine 1 


SEP=198¢ 02:19:52 ENETACE. SREINEY NF RAR: 1 


ompare CNF against keys 


; Get str 
; Get offse 


Save regs 
ng Length 
to string 
; Get string pointer 
Save descriptor 
Setup condition codes 
Doesn't affect condition codes 


Indicate no match 
Pop caller's address 
Return to caller's caller 


data base access feat inn 1 mth 03:16:63 tyes Macro V04-00 Page (2) 


) 
iguration : | 
WO4s000 TPIELD - Get field from CNF entry 5-SEP- NETACP.SRCIJNETCNF .MAR; 1 | 
rth $3 -SBTTL CNFSGET_FIELD = Get field from CNF entry 
: TF X = External get zero extended value or descriptor of CNF field 
a $4 ; ENFSCET“FIECD ° Internal get zero extended value or descriptor of CNF field 
gig gop; NUTS: AN} aarese of EAP 
rf $8 : RS FLD # in bits 0:15, Mask I.D. in bits 16:29 
rie 1006 : RO Error code to be returned if field not active 
: : ified 
rth i o : es RB renee value if type bit, byte, word, or longword 
414 1 : ; Pointer to string if type string 
216 1008 ; Ro pogh bey FB: hye. B 
8 
rf 1906 : : ieteaneed otherwise (0 if entered with LBS) 
414 1007 ; 
: : R eroed at the start of the 
ap 1908 : ate nh alg if the routine returns with LBC in RO 
0414 1010; then R7 and R8 will equal zero implying a null 
Rete 1013 $ field. 
Beg 1013 CNFSGET_FLD_EX:: : Get CNF field 
, é - Save current flags 
specials Pe Oc18 1918 pus NETSUCINTANL NETSGL FLAGS ; Indicate extertel access rights 
50 04 O41E 101 CLRL R x ; No pre-set error code 
OA 11 Be 6 1917 BRB GETFLD ; Continue 
04 ; 1019 CNFSGET_FIELD:: 3; Get CNF field 
. " ; Save current flags 
wprsed ane be 6 19 : SETBIT NETSUCINTANL NETSGL FLAGS ; Indicate internal access rights 
042C 1 
: »NETSGL_FLAGS ; Indicate read access intended 
02 5 E9 4§5 i =_—se sfoe. ness sorte. ; Br if valid error code 
30 D4 04 5 1025 CLRL 0 + ne BS pe pts 3 he —— it valid 
2 ve R2,R3,R4, ; Save re 
35 7 " 9 19 $ os ctRON "ereeee ; Zero value/éescrteter 
2 30 04 1 BSBW GET_DSC ; Get description of field 
02 5 E9 O43E 1 § BLBC RO,40$ ; If LBC then no field 
12 10 0441 1030 BSBB cet : Get the field value 
” ee cS mr i ; - PERS ny Sh : wae salter 5 the error code? 
12 48 1 BNE 60 3 en ye 
; Reset the return status 
- 0 BA 2D é a8 POPRY FACRO RI .R2.R3.R4.R5> ; Restore regs, restore RO 
0000' CF 8e00 44F 1 $ POPL NETSGL_FLAGS ; Restore flags 
0 454 1 RSB 
288 4089 
5 ' rt : Get Field action routines 
GET: ° ; If action routine, call it now 
mee y ED § : “8 eer eRPZV PENREV-SERCTY 0% wale It data resides in bitmask in CNF, 
00 63 B 1044 #CNRSS~SEM-TYP, (R3) ,#CNRSC_SEM_BIT 
C 13 04 3 1045 BEQL 2 “ ‘ = 3 then ek Fy By nie nte~ = else, 
ADDL3 R10,R4,R ; Get poin 
; at 50 tee “3 MOVL (R1S,Rf ; Get a longword of data from CNF 


TCNF = Configuration data base access BS SEP=1984 01:1 AX/VMS 0 V04-00 Pa 5 | 
yO4+000 CN NFSGET FIELD Get field from CNF entry ~$Fb= 1382 83: 18; $3 UNETACP. SR NETCONF . MAR; 1 = fay 
3 1 0467 104 BRB 208 
o2de 4 469 1049 108: BSBw GET_RT_FIELD ; Else 9° are the info, return with: 
46C 1 : address of longword str desc 
tee {nO = Cas it ond eats it 
: and on success 
4E 18 AA 3 E1 m4 34 1 j 20S: BBC RS,CNFSL PASK CRO). 170$ i Br if ENF field is invalid 
EF 04 j 1054 EXTZV #CNRSY _SEM_TYP,= Get parameter type 
7E 63 «(0 473 1055 #CNRSS-SEM— TYP (R3), (PS 
$78 ! § SDISPATCH wit So TYPE=L, <= ; Dispatch by paramater type 
476 1 <CNRSC_SEM_BIT, 10 $>,- - ; Bit 
476 105 <CNRSC_SEM_B,  110$>,- ; Byte 
476 106 <CNRSC ~SENW. 12 $>;- - ; Word 
476 1061 <CNRSC_SEM 140$>,- ; Longword 
0476 1068 : <CNRSC~SEM— “Str, 130$>/= : String descriptor 
Oe $ +44 BUG_CHECK NETNOSTATE,FATAL ; Bug if type is unknown 
07 63 ~=—s«O —1 8 8 1086 100$: BBC are SEM_RT,(R3),105$ ; Br if ‘‘real’’ CNF field 
58 51 O01 OO EF peat 9 EXTZV #0,41,R1,R8 : Else get Loy bit of value setup by 
i action rou ne 
ef 11 0491 3 BRE 150$ 3: Continu 
58 6A 01 ? 4 $33 Oe 105$: aueee 1 a abides 3; Get the. bit value 
58 | * r 45 1976 110$ Dove £1588 > Get byte parameter 
58 3) 7 Bees 1044 120$ poe. wi gee : Get word parameter 
58 33 09 “ 1976 140$ way el ae : Get Longword parameter 
18 63 OF £0 O4A9 1078 130$: 68S #CNRSV ~ SEM. RT, (R3),180$ : Br if the string was obtained from 
51 54 «6SA ¢! AD 1079 ADDL3 =6R : an action routine 
58 61 C 0481 1 80 MOVZWL STR GREER), RB : Get offset to string 
58 1 0 0484 1081 ADDL 8 ; Get pointer te string 
57 02 A1 3¢ 487 1 Ht MOVZWL STR ete 3; Get size of string 
50 01 4 488 1084 1308 nove #iR : Indicate field is valid 
F 1085 1908, CLRBIT #0,R0 3; Indicate field is invalid 
F911 ie RB 166$ : And leave QO 
1088 8 
1089 ; The string was obtained from an action routine and is hence sitting 
1090 ; in the common action routine buffer. Since this pba is in 
1091 : butter a of — rewveee. it 18 necessary | ‘ o) Legate a temporary 
1 36 3 uffer and move the stri ne, te to it. This fer is inserted on the 
109 ;  NETSGQ_TMP_BUF queue -- all buffers on ie queue are deallocated 
: Re 3 eventually by one of the higher level routines. 
1 % 180$:  MOVL ; Copy the string descriptor address 
109 MOVZWL STRTUNG(RID .RI ; Get the string Lengt 
1 4 ADOL : cODY size o Bim y Stee 
109 BSBW NETSALLOCATE S Allocate the buffer fren the ACP pool 
1100 BLBC R ; Br on error 
1101 INSQUE (Re ,@NET$SGQ_TMP BUF =; Insert butter on tmp. _buf queue. 
11 ¢ MOVW 1, CNRSW_ SIZE(R2T ; Store size for deallocation. 
11 ADDL a 12,R2 : Point to string storage area 
1104 MOVL R2,R8 ; Make copy for return 
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C uration 
F Fi IELD = Get f eld ¢ rom enF entry NETACP.SRCIJNETCNF MAR; 1 Pse 
1 7 HS E4 1105 MOVZWL STR thet ; Get self-relative offset 
7 4E7 13 $ ADDL ; Make it a pointer ¢ 
57 02 A? ¢ EA 11 MOVZWL STR_LNG(R7),R7 : Get size for return 
57 4EE 1108 MOVC3 R7,TR1), (RBS : Move the string 
0 01 t' 4F2 1109 MOVL #1,R0 ; Set success 
0 F 1110 190$: RSB 
4F6 1111 
eee re | oY 200$: CLRQ R7 : Zero R7, R8 on error 
FB 11 ord Wiz BRB 190$ 3; And exit 
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data base access routine 16-SEP-1984 01:12:45 VAX/VMS Macro v04-00 Pa 7 se 
Store field {nto CNF ent -SEP-1984 Oh: 18 383 NETACP.SRCINETCNF MAR; 1 - Gj 


-SBTTL CNFSPUT_FIELD = Store field into CNF entry 


; CNFSPUT_FLD_EX = External insert CNF field CG 
; CNFSPUT_FIECD = Internal insert CNF field 


Se eeee 
* 


INPUTS: 1 Address of CNR 

0 Address of CNF 
FLD # in bits 0:15, Mask I.D. in bits 16:23 
Parameter value if type byte, word, or longword 
Pointer to string if type string 
Size of string if type string 
Error code to be returned upon failure 


OUTPUTS: RO Low bit set if successful 
Unchanged otherwise (0 if entered with LBS) 


zw DwzDD 
on woo-— 


CVPR 6 Se Se Se Se Se Se Se Ge Se Sete eee 


NETSGL_FLAGS ; Save current flags 
CLRBIT NETSV_INTRNL,NETSGL_FLAGS ; Indicate external access 
BRB PUTFLB_1 ; 


; No pre-set error code 


CNFSPUT_FIELD:: ; Store CNF field 
PUSHL NETSGL_FLAGS ; Save current flags 
SETBIT NETSV TNTRNL ,NETSGL_FLAGS ; Indicate external access 


BN 

50$: MOVZWL RO, (SP) 

60$: POPR #*M<RO,R1,R2,R3,R4,R5> 
pene NETSGL_FLAGS 


Reset the return status 
Restore regs, restore RO 
Restore flags 


BLBC RO, ; Br if valid error code 
PUTEUB Ss CLAL RO 3; No pre-set error code 
CLRBIT NETSV_READ,NETSGL_FLAGS ; Indicate write access 
PUSHR #*M<RO,R1,R2,R3,R5,R5> ; Save regs 
BSBW GET os¢ : Get description of field 
BLBC RO,40$8 : If LBC then no field 
BSBB PU 3; Store the field 
40$: BLBS RO,50$ ; If LBS then success 
TSTL (SP) ; Has caller pre-set the error code? 
EQ ; If NEQ then yes 


| 
FSPUT_FLD_EX:: ; Store CNF field 
PUSAL 
: Put Field action routines 


but: 
EXTZV #CNRSV_SEM_TYP,- ; Get parameter type 
#CNRSS_SEM_TYP,(R3),RO0 ; 
CMPL RO #CNRSC_SEM_STR : String? @ 
BNEQ 50$ :; If NEQ no, br to check value range 
CMPZV #CNRSV_SEM_SMX,- 3; Range check required? 
#CNRSS_SER_SAX, (R3) ,#0 : 
BEQL 40$ : If EQL then no ' 
CMPZV) = #@CNRSV_SEM_SMX,- ; String Length within range? 
#CNRSS_SEM_SMX,(R3),R7 ; 
BLSSU 80$ :; If LSSU then out of range 
40$: TSTL R : Is string null? 
BRB 70$ ; Continue in commone 


G 6 
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04-000 CNFSPUT FIELD = Store field into CNF ent mets fi §3:19383 ENETACE. SREINETCNF MAR; 1 . (98) 
50 3 } 3 1173 50$: CMPL #CNRSC_SEM_L,RO ; benguord alue ? 
3 1174 BEQ $ 3 If EQL sk P range check 
1 ED ye CMPZV «= A@CNRSV_SEM_MAX,=- 3; Range check required? 
00 63 #1 A 11 § Sh UNOS SER_PUR. (R5) -#0 3 
9 13 D 117 BEQL $ 3; If EQL then no 
ED 2 F 1128 CMPZV) = #@CNRSV_SEM_MAX,=- 3; Within range? 
s & 61 117 EL URSS SER_AK. (RS) LAO $ 
9 1F ye 1180 BLSSU  80$ ; If LSSU then param value too Large 
i) 66 1181 ops: TSTL : Is the value zero ? 
A 1 568 11 § $: BNEQ 90$ 3; If not continue 
06 63 F 56A 11 BBS #CNRSV_SEM_7,(R3),90$ ; If BS then zero is okay 
50  0000°8F f 295 1184 80S: MOVZWL #SS$_BADPARAM,RO ; Indicate bad parameter value 
247 13 5 RSB ; Return status in RO 
51 54 SA (C1 0874 11 5 90$: ADDL3 = R10,R4,R1 ; Get pointer to parameter 
08 63 of + 578 1188 BBC #CNRSV_SEM RT,(R3),95$ ; Br if not action routine 
014 0 O57C 1189 BSBW PUT_RT_ FIECD ; Call action routine 
3A 50 =«ED 44 1190 BLBC RO, 1708 ; If error, do not mark as ‘'set'’ 
3 11 beet 113) BRB 156s ; Else, mark as ‘'set’’ and exit 
0384 1188 95$: SDISPATCH RO,<- 3; Dispatch by paramater type 
0584 1195 <CNRSC_SEM_BIT, 100$>,- ; Bit 
B28¢ 1196 <CNRSC_SEM_B,  110$>,- ; Byte 
0584 119 <CNRSC_SEM_W, 1g08> 0 3; Word 
0584 1198 <CNRSC_SEM_L 130$>, 3 Longword 
0584 1199 <CNRSC_SEM~STR, 140$>,- : String descriptor 
0592 1201 BUG_CHECK NETNOSTATE,FATAL 3 Bug if type is unknown 
51 SA ce 0596 1 8 100$: sus »R1 : Subtract out CNF address 
6A 01 51 38 4 B208 : 4 aoe OE gat oft (R18) : Insert bit value 
61 ae + $s : 32 110$: re 1 i 3 Insert byte parameter 
61 3 99 B2Ag : 0? 1208: aoe 13 ele ; Insert word parameter 
61 38 09 ~ ' 130$: rot 1 z Insert longword parameter 
OC 19 OdaF 121] 1408: BSBB PUT sR ; Insert the string 
08 50 «4&9 #0581 1 1g BLBC ~=_« RO, T7008 ; If LBC then didn*t fit 
50 2 584 1213 150$:  MOVB #1,R : Indicate success 
00 18 AA .. € 5B7 1214 BBSS R5,CNFSL_MASK(R10),170$ ; Mark field valid 
05 O058C 1215 170$: RSB 
aa 
280 : 3 PUT_STR: :; Insert string into CNF block 
58D 1220 : If the new string is less than or equal to the size of the new 
58D 1221 3 «string, then simply re-use the space. This is needed to make 
58D 1 § : is simple to store fixed size strings such as NI addresses 
sap 1 : without having to generate a new CNF block, when the SIZ FREE 
250 ' : ; is exhausted. Any waste holes for unequal strings will Be wasted. 
58D 1 6 : If string is already active then subtract its size from 
58D 1 ; = CNFSW_SI yee? before storing the string. Store the string and 
260 : 8 ; vosets CNFS$W_SIZ_USED and CNFS$W_SIZ_FREE to account for storage 
: aken. 
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TCNF = Configuration data base access routine 16-SEP-1984 01:12:4 AX/VMS Macro Vv04-00 Page 29 
V4 5000 CNFSPUT FIELD = Store field into CaF ent SoSEP-19R6 O2:19:82 ENETACE. SRETMETENF MAR: 1 a 92, 
BD 1230 H 
BD 1231 > INPUTS: R10 = CNF block pointer 
BD 1 § ; Re = Pointer to string 
BD 1 : R? = Length of string | 
BD 1234 : R5 = Bit offset from CNF mask to field active flag 
rs 1235 3 R1 = Address of CNF string descriptor 
BD 1 § 3 RO = Scratch 
58D 1 : 
58D 1 8 ; OUTPUTS: Ri = serboge 
5BD 1 : RO = SS$_NORMAL if successful 
- ! re ; SSS_INSFMEM otherwise 
3c)—Cfs«éBB OSep : tg PUSHR #*M<R2,R3,R4,R5> ; Save regs 
OSBF 1244 ; If the new string is less than, or equal to, the size of the 
beef 1245 ; original string, then simply re-use its space (wasting any 
SBF 1 rf 3; excess), and modify the Length of the parameter. This is done 
teal : rt ; to make replacement of fixed size strings easy. 
17 18 AA 55 €1 SaBr 1249 BC RS,CNFSL_MASK(R10),20$ ; If BC then field currently inactive 
02 Al 57 B81 O5C4 1250 CMPW R7,STR_LAG(R1) ; Equal or less space than original? 
11 1A O5C8 1251 BGTR 2 ; If not, then allocate new space 
50 02 A1 57 A3 OSCA 1 26 SUBW R7,STR_LNG(R1) ,RO : Compute difference in sizes 
10 AA 50 A2 OSCE 125 SUBW RO,CNFSW_SIZ ySED(R10) ; Adjust string space taken 
53 61 3¢ 0503 1254 MOVZWL STR OFFCRIDR ; Get offset to original string 
53 1 CO 0506 1255 ADDL R1,R ; Get pointer to string space 
2F 0509 36 BRB 50$ ; Move the string, and exit 
0508 1258 ; We cannot re-use the space of the original string. Deallocate 
0508 1259 3 the space used by the original string, if any (wasting it), and 
3208 : $9 : allocate some new space at the end of the block. 
50 Q000°8F 3C¢ 3208 1 6 208: MOVZWL #SS$_INSFMEM,RO ; Assume no space left 
OE AA 57 81 be 126 CMPW R7,CRFSW_SIZ_FREE(R10) ; Enough free space left ? 
eF 1A OS5E4 1264 BGTRU 90 : If GTIRU then no 
53 OC AA 9E OS5SE6 1265 MOVAB CNFSW grt FREE CRIS) LAS ; Prepare to calc. ptr 
38 63 3C OSEA 1266 MOVZWLE (R3),R ; Get offset to free space 
5 52 CO OQSED 1267 ADDL2 R2 ; Calculate ptr to free space 
O5F0 1268 ASSUME STR_OFF EQ 0 
61. 53 51 Ad O5FO 1269 SUBWS = R1,R3,STR_OFF(R1) ; Enter self-relative offset : 
05 18 AA 55 «=6E1 «=(O5F4 «61270 BBC R5S,CNFSL_MASK(R10),30$ ; If BC then field currently inactive 
08 Al A2 O5F9 1271 SUBW STR_LNG(R1) = ; Adjust space used (note that we are 
10 AA OSFC 1 re CNF$W_SIZ_USED(R10); return it to CNFS$W_SIZ_FREE) 
of AA 4 A ars 12735 30S: SUBW = R7, CNF$W_STZ_FREE(R10) ; Account for space faken 
10 AA =. 602 1274 ADDW R7,CNFSW_SIZ_USED(R10) ; Account for space taken 
OC AA ae | ey 1275 ADDW R7,CNFSW OFF _FREE(R10) ; Advance free space offset 
02 Al 7 3 60A 1 16 50$ MOVW R7,STR_LAG(RT) ; Enter string size 
63 68 7 60E 127 MOVC3 R7,(RBY,(R3) ; Move it 
50 90" DO 0612 1 A: MOVL  S*#SS$_NORMAL,RO ; Indicate success 
C BA 61 19 90$ POPR #*M<R27R3,R4,R5> ; Restore regs 
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data base access a 16-SEP-1984 gh: 16:43 


Clear a CNF field -SEP-1984 
-SBTTL CNFSCLR_FIELD - Clear a CNF field 


‘+ 
; CNFSCLR_FLD_EX = External clear CNF field 
- Internal clear CNF field 


; CNFSCLR_ =FIECD 


; ; INPUTS: 


: OUTPUTS: 
a 


FSCLR_FLD_EX:: 
“PUSAL 


CLRBIT 
BRB 


CNFSCLR_FIELD:: 
PUSHL 


SETBIT 
CLRFLD: a 


C 
5$: PUSHR 


oo 
PAA 


AX/VMS Macro V04 7°e 
NETACP.S RCIN ETCNF .MAR;1 


R11 CNR point 

R10 CNF pointer (CNFSCLEAR only) 

RG Field i.d. 

RO LBS if successful, LBC otherwise 


ALL other registers are preserved. 


NETSGL_FLAGS 


NETSV SINTRNL., »NETSGL _FLAGS ; 


NETSGL_FLA 


6S 
NETSV_INTRNL,NETSGL_ FLAGS 


NETSV_READ,NETSGL_FLAGS 
RO,5$ 


R 
Aare R1,R2,R3,R4,R5> 


¢ 


R 108 
RS, CHFSL MASK (RT ),10$ 
WCNRSV_SEM_RT ,(R3), 108 
FENRSV- 


=T 
#CNRSS_SEM_ Typ. (R3), - 
SrURSC SEM_STR 


#CNRSV_SEM_OFF 
aCHRSS ~SEM_OFF, “(R3), R2 


R1 
STR. Pag(R2) 
GNF SW siz _USED(R10) 


RO, (SP) 
#*<RO,R1,R2,R3,R4,R5> 
NETSGL. FLAGS 


— bit in CNF mask 
Save current flags 
Indicate external access 


Clear CNF field 
Save current flags 
3 Indicate external access 


Indicate write access 

Br if valid error code 

Else —_ it valid 

Save re 

Get fie a semantics 

Br if not defined 

Clear the bit 

Br if rtfetd™ is an action routine 
Is this a string field ? 


If NEQ no, we're done 
Get offset from top of CNF to field 


Make it a pointer 
Update amount of space used 


If LBS then success 

Has caller rene the error code? 
If NEQ then 

Reset the re i status 

Restore regs 

Restore flags 
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J 6 
ase access routine 16-SEP-1984 01:12:45 VAX/VMS M v04-00 Pp 1 
fi ; Be 93:19:28 RCIN aoe 3 


eld exists “-SEP-19 NETACP.SRCINETCNF .MAR; 1 (17) 
~SBTTL CNFSVERIFY = Check if field exists 
CNFSVERIFY = See if field semantics are defined 


oa 


ro 
7 
oe 


; INPUTS: R11 CNR pointer 
R10 CNF pointer 
RO Field i.d. 
; OUTPUTS: RO LBS if successful, LBC otherwise 


; ALL other registers are preserved. 
¢ Are field semantics defined? 


| 
NFSVERIFY:: P 
PUSHR #*M<R1,R2,R3,R4,R5> : Save critical regs 


S$ 
BSBW GET_DS Get field semantics 
10$: ro #*M2R1,R2,R3,R4,R5> ; Restore regs 


K 6 
a base access routine 16-SEP-1984 01:12:45 VAX/VMS Macro V04-00 Page 3 
action rout ine to ge 5-SEP-1984 02:17:52 CNETACP.SRCIJNETCNF MAR; 1 . 38) 
-SBTTL GET_RT_FIELD = Call action routine to get value 


s@ 
; GET_RT_FIELD = Call action routine to get a parameter value 


TCNF -¢ 
W545000 GET. 


ote 
1° 
= ] 
eva 
-o 
~o 


@o 
-s 
~ 
"oO 
—c 
ms 
~-o 


Inputs: 
R11 = Address of CNR 
R10 = Address of CNF 
R9 = Field ID 
R5 = Bit offset from top of CNF mask vector to field presence flag 
R4 = Address of action routine 
R3 = Address of field semantics longword 
Outputs: 


RO = Status code 
= Address of longword ‘field value”’ 
For binary values, longword binary value 
For string values, address of word offset & word count 


R2-R11 are preserved. 


The action routine is called with the following interface: 
Input to action routine: 


RO = 0, indicating parameter is to be read, not written. 
(used | for those action routines that can do both). 
R11 = Address of CNR 
R10 = Address of CNF 
R3 = Address of scratch buffer 


SOONANE WN 9 ODONAUE WN OOONOULS WH OOOon~ 


Output from action routine: 


For string values, R3 points just beyond string in scratch buffer. 
For binary values, R1 contains the value itself. 


DDD DDD DDD DDD DIDI PAA AAA AAA AAA AAAOOaAO 8 


ALL registers (R2-R11) can be destroyed by action routine before 
returning here. 


SESSSSSSSSSSSSSSSSSSSSSSSSCOOE BEEBE BEEBE. 


© OO09 09 09 6909 69 09 09 09 09 SI NINN NNN NN PA AAA AAA MMIII EE 


WO OOnNOuUeSwhr— 


06 - 
GET_RT_FIELD: . 
OFFC 8F 6 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9,RIO,RII> ; Save registers 
0 ED 06 CMPZV) = #CNRSV_SEM_TYP,- : Spring value? 
04 63 0 #CNRSS~SEM~TYP, (R3) ,ACNRSC_SEM_STR 

06 13 06 a BEQL 508 ; Branch if so 

95 ; 

38 3 Call action routine for binary value 

9 e 
50 D4 39 CLRL RO ; Indicate parameter to be read 
64 16 JSB (R4) ; Call action routine 
eF BRB 90$ ; Return status in RO 


OO NUN = FT & 09.09. CD 0D CD 09 CD CD OD Cd CD C9 CD CD CD CD CD CD 09 CD CD CD 0D CD 0D CD 0D CD G9 CD 0D CD 09 0D 0D C9 0D C900 0D CD00 0D0D 


a me ee a ad a a ed kd a dd dd dd a a ot or 


LBL FAA AIAN NIAAA AIA AAI AAI AIA AINA AAA AIAN 
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TCNF - Configuration data base access teoties 16-SEP-19 AX/VM o V04-00 Page 33 
yO4+000 GET RT FIELD = Call action rout in ne to ge $78 Pa 1986 63: 183 $3 ENE TACP P.S SNETCNF . MAR; 1 . da) 
689 1404 : Call action routines for string 
BB 8s 
¥ OOOC'CF 01 ge : 9 14 $ 50$: BBSS ore e's a TMP_B_FLAGS, 1008 ; Allocate static buffer 
53 00000006'GF SE O68F 14 : MOVAB F RS ; Setup buffer pointer 
50 D044 06 $ 14 CLRL gy" 3 Indicate parameter to be read 
16 0698 1410 JSB Re) 3; Call action routine 
51 444 ‘GF 9E Q69A 1411 MOVAB G*T os VAL,R1 3; Point to descriptor _storege 
52 0000 at 6A) 1216 MOVA G*TMP- BUF *R2 : Get sited of ot be te 
02 Al 5 A 6A8 141 SUBW Ree R3> STR_L NG(R1) Set ring si 
61 0004'8F 80 6AD 1414 MOV TMP_BUF- THP VAL, STR orririy ; vsotw string offset 
0B OOOC'CF O01 CE ess 1312 BBCC +IMP- “V_BUF , TAP_B_ “FLAGS,100$ ; Deallocate static buffer 
OFFC 8F BA 068 1213 90$: POPR #*M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> Restore registers 
18 AA 601) SO 55)—s«SOs«dFOsO6BC C1418 INSV RO, R5,#1,CNFSL_MASK(R10): Remember val 4 idity of field 
05 dees eh RSB ; Return status in RO 
06C 1239 BUG_CHECK NETNOSTATE,FATAL 


_ I EEE neEEnEEEn nnn 


phe 


M 6 
ase access routine 16-SEP-1984 01:12:45 VAX/VMS Macro v04-00 P 34 CO 
tion routine to st 5-SEP-1984 3319383 ENETACP. SREINEYCNF MAR: 1 — (19) 


-SBTTL PUT_RT_FIELD = Call action routine to store value 


TCNF = Con ta b 
¥O4-000 PUT_R l ac 
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ae | 
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PUT_RT_FIELD = Call action routine to store a parameter value 
Inputs: 


| 
| 
1 = Address of CNR 
0 = Address of CNF 
ield I 
= Parameter value 
it offset from top of CNF mask vector to field presence flag 
ddress of action routine 
ddress of field semantics longword 


>r>o 


Outputs: 
RO = Status code 
R2-R11 are preserved. 


The action routine is called with the following interface: 
Input to action routine: 


RO = 1, indicating parameter is to be written, not read. 
(used only for those action routines that can do both). 
R11 = Address of CNR 
R10 = Address of CNF . - 
R7/R8 = Parameter value (descriptor if string, else R8 = longword). 


PARA_EARLAAAAAAAA AAA AAAAAAAAAIAIAAIAAAAS 8 


FI FF HMOOQOAAOAOOAOAOIOOAOAAAOAAOAOAAAAIAAOAOAAOOOAOAOOAOOOAOO 


SOOOQOOOCCOOCOOOOOOOOOOOOOOOOOOOCoCOO ---« 
Sete Se Ge Se Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Se Se Se Sse Fete 


VAS OM NN 
PARADA Se BB BE EE AAAI III IInononononnd 


be Output from action routine: 
82 RO = True if parameter was stored, else false. 
06 ALL regteters (R2-R11) can be destreyed by action routine before 
06 returning here. 
be - 
Og PUT_RT_FIELD: 
OFFC 8F BB 06 PUSHR = #*M<R2,R3,R4,R5,R6,R7,RB,RI,.RIO,RI1> ; Save registers 
50 01 00 MOVL #1,R0 3: Indicate parameter to be written 
4 16 06 JSB (R4) ;_ Call action routine ; 
OFFC 8F BA 6 POPR #°M<R2,R3,R4,R5,R6,R7,R8,R9,RI0,R11> ; Restore registers 
5 RSB ; Return status in RO 
6 


100$: BUG_CHECK NETNOSTATE ,FATAL 


NETCNF - Configuration data base ac 
v04-000 GET DSC = Get descriptor of 
D9 1471 . SBT 
603 1426 3+ 
609 1475 ; GET_DSC 
609 1474 ; GETIDSC_1 
rif 1298 : input 
@ nputs 
6D9 1299 $ 
6D9 O08 ; 
609 1479 ; outputs: 
609 1480 ; 
609 1481 ; 
609 14 § : 
609 14835 ; 
6D9 tf ; 
609 1485 ; 
609 14 § 5 
609 14 :- 
9609 1488 GET_DSC: 
56 10 0609 1489 8SB8B 
coe ey See ite 
50 663 8 Gee 1238 
OA £0 O6E3 149 BBS 
22 0000'CF QO6ES 1494 
QO6E9 1495 : 
QO6E9 1496 3 
06E9 1497 3 
QO6E9 1498 ; 
Q06E9 1499 . 
01 50 91 O6E9 1500 CMPB 
D 13 O6€C 1501 BEQL 
04 50 91 O6EE 1306 CMPB 
92 13 O06F1 150 BEQL 
05 0 91 O6F3 1504 CMPB 
06 12 O6F6 1505 BNEQ 
09 €1 O6F8 1306 8$: BBC 
2D 0000'CF FA 138 
03 50 91 ore 1508 10$: CMPB 
1E 12 01 1509 BNEQ 
0B CE? 703 1510 BBC 
18 0000'°CF 705 1511 
20. =o 709 1216 BRB 
7 151 3 
7 1318 3 
ree late : 
rOB 1819 
09 «£0 208 1 18 20$: 68S 
10 0000'CF 70D 151 
05 Hh o) 711 +1520 CMPB 
1 3 714 «1521 BEQL 
08 iC re 1 § BBS 
05 9900" Cr 718 #1 
0 50 (91 71C «1524 CMPB 
Bs 1 71F 1525 BEQL 
50 1 .] is) 1 § 30$ MOVB 
0 724 «15 RSB 


ro V04-00 Page 


N 6 
cess routine 16-SEP-1984 12:4 AX/VMS 
N Mee 83:19:83 f RCINETCNF MAR: 1 


CNF field -SEP-1984 NETACP.S 
TL GET_DSC = Get descriptor of CNF field 


- Get descriptor of CNF field and check access rights 
- Get descriptor of CNF field 


R11 Address of _ 
R9 FLD number in bits 0-15, mask id in bits 16-23 


R11 Address of CNR 
R9 Unmodified 
RS Bit offset from top of CNF mask vector to bit in R9 
R4 Byte offset from top of CNF to parameter or 

ointer to action routine (depending upon semanitics) 
R3 ddress of field semantics longword 
RO LBS if successful 

LBC otherwise 


Get descriptor and check access rights 


GET_DSC_1 ; Get the descriptor 

RO,5 ; Br on error 

#CNRSV_SEM_ACC,- ; Get access protection 

#CNRSS_SEM_ACC,(R3),RO ; 

#NETSV_READ,- ; Br if read access is intended 
NETSGL_FLAGS,20$ 


Write access is intended. The boolean equation for NOT allowing 
write access is: 
“W = RO + (ER+NE)*(-INTRNL) + CW*LOCKED 


Read only ? 
If EQL no access permitted 
External read only ? 
If so, then check if external 
No external read or write access? 
If not, then continue 

BC then not internal access 


If 
is field conditionally writeable? 
I 


RO, #CNRSC_ACC_RO 

RO,#CNRSC_ACC_ER 

RO, #CNRSC_ACC_NE 

#NETSV_INTRNL,= 
NETSGL_FLAGS ,60$ 

RO, #CNRSC_ACC_CW 


#NETSV_CNFLCK,- 
NETSGL_FLAGS,30$ 


NEQ then access is allowed 
f BC then okay to write the field 


Else cannot write it 


Bees acqees intended. The boolean equation for allowable read 
ccess is: 
R = -(NE®-INTRNL) * (-WO + WO*INTRNL + WO*BYPASS) 
#NETSV_INTRNL,- 
NETSGL_FLAGS, 30$ 
No external read/write access? 


RO, #CNRSC_ACC_NE 
If not, then disallow access 


; Br if internally accessed 
#NETSV_BYPASS,- : Br if user has bypass privilege 


NETSGL_FLAGS, 30$ 
Is field ‘‘write-only” 


2 #CNRSC_ACC_WO 
40$ If EQL then no access allowed 


#1,R0 ; Set success 


Sd 
4C 


4 us 
TCNF = Configuration data base access ro — 16-SEP-1 71 AX/VM cro v04-00 Page 
Vbu5000 GET DSCee Get descriptor of CNF P tiel aes 83: 18: $3 NETACP.S REIN NETCNF MAR; 1 . (38) 
1 
50 0000'8F HS ; é 1 § $85: MOVZWL #SS$_BADPARAM,RO 3; No read access allowed 
4 : y > $: RSB ; 
50 0000°8F HS 7? 3 1 § 60S: MOVZWL #SS$_WRITLCK,RO 3; No write access allowed 
7 1 RSB : 
731 1534 
We 
731 «1 $ GET_DSC_1: 
50 OA “e 9A 07 } 1 3 “MOVZBL CNRSB_TYPE(R11),RO Get database i.d. 
50 59 O08 1 FD 735 1 CMPZV  #NFBS0_DB,#NFBS$S_DB,R9, Rb Is if for this database ? 
24 , A 40 BNEQ 408 ; ff NEQ then no 
73¢ «(1 tg ASSUME NFBSV_INX EQ 0 
if ; : tz ASSUME NFBSS_ INX EQ 16 
55 9 3c O73C 1545 MOVZWL RI,R : Get field index 
OE AB 5 Di O73F 1346 CMPL RS CHRSW. MAX_INX(R11) i Is it within range ? 
H 3 1A ote 154 BGTRU If GTRU then out of range 
53 0128 CB4 DE 0745 1548 MOVAL CNRSL_SEM_TAB(R11)CR5J, rs : Point to semantic longword 
0 EF 0748 1549 EXTZV #CNRSV_SER_OFF,- ; bet byte offset to field from 
54 63 8 074d 1550 #CNRSS_ SEM “OFF, (R3),R4 ; top of CNF (or routine index) 
13 0750 1551 BEQL : Branch if no semantic entry 
06 63 . 8 ore 1336 BBC #CNRSV_SEM_RT,(R3),30$ ; Br if “field is not a routine 
54 B CO oF 38 155 ADOL R11,R4 ; Get address of pointer to routine 
4 64 00 0759 1554 MOVL (RAS ,RG : Get address of routine 
0 00° DO O75c 1555 308: MOVL S*#SS$$_NORMAL,RO : Indicate success 
RES ico 
50 0000'8F HS O76 1338 40$: + a #SS$_BADPARAM,RO : Indicate illegal field ID 
766 1560 
766 1561 
766 1562 .END 
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NETCNE - Configuration data base access routine 16-SEP-1984 :12: AX/VMS Macro v04-00 Page 37 
Symbol table ° g7SEF- 38 93:45:83 ENETACP. SREINETCNF MAR: 1 . 30), 
| 
ACPSC_STA_F = 4 CNRSC_SEM_W = 
ACPSC_STA_H = CNRSL_ACT_DELETE = 
ACPSC_STA_1 = CNRSL_ACT_DFLT = 
ACPSC"STA_N = CNRSL-ACT_INSERT = 4 
PSC_STA_R = ¢ CNRSL_ACT_Q10 2 8 
ACPSC“STA_S = CNRSL-ACT-REMOVE = 2c 
BIT... = 6 CNRSL_ACT SHOW = ¢ 
BUGS_NETNOSTATE etterere § x 5 CNRSL_INSERT = 8 4 
CLRFCD 98 ER 5 CNRSL_SCANNER = 
CNFSB_FLG = CNRSL_SEM_TAB 2 1 
CNFSB" TYPE = 4 CNRSL_SPCSCAN = 0 
CNF SCCONE 1A0 RG : CNRSL_VEC_MAND z 380 
CNFSCLR_FIELD 624 RG CNRSL_VEC_UNIQ = ee 
CNFSCLR-FLD_EX 0000618 RG 5 CNRSS_SEM_ACC = 00000003 
FSCOPY Bee 170 RG 5 CNRSS_SEM_MAX = 4944 9h 
CNF SDELETE 0000015 RG 5 CNRSS_SEM_OFF 2 0000 
CNFSGET_FIELD 44 ¢ RG 5 CNRSS_SEM_ SMX = aie 
CNFSGET-FLD_EX 00000414 RG 5 CNRSS_SEM_TYP = 0000000 
CNFSINIT 444 34 RG 05 CNRSV_SEM_ACC = 00 B2R08 
CNFSINIT_UTL 000021D RG 05 CNRSV_SEM_MAX = 0000001 
CNFSINSERT 00000044 RG 05 CNRSV_SEM_OFF = 00000000 
CNF SKEY_ SEARCH 00000 gf RG 3 CNRSV_SEM_RT = 444 
CNFSKEY_SRCH_EX 00000 : RG 5 CNRSV_SEM_ SMX = 0000001 
CNF SL_MASK = 0000001 CNRSV_SEM_TYP = 00000008 
CNFSM_FLG_ACP = 00000004 CNRSV_SEM_Z = Q000000F 
CNFSM_FLG_ = 00000001 RSW_MAX” INX = aise 
CNFSM-FLG DELETE = 0000000 CNRSW_SIZE = 0000000 
CNFSPRE_OT 00000009 RG 05 CNRSW_SIZ_CNF = BOO bose 
CNFSPRE_S 00000000 RG 05 COMPARE $4444 47 R 05 
CNF 44 RG 05 COMPARE _ACT 000039A R 05 
CNFSPUT_FIELD 00000506 RG 05 LIST = 00000004 
CNFSPUT_FLD_EX QOOO04FA RG 05 DYNSC_NET = 00000017 
CNFSSEARCH 4443 94 RG 05 ET 00000455 R 05 
CNFSSEARCH_EX 44 C RG 3 GETFLD 0000042C R 05 
CNFSVERIF etd RG 5 GET_DSC 00000609 R 05 
CNFSV_FLG_ACP = 0000000 GET_OSC_1 00000731 R 05 
CNFSV_FLG_DELETE s age GET-RT FIELD 00000678 R 05 
CNF$W_ID = 4 ple KEY_EQ 00000350 R 05 
CNF SW_OFF_FREE z 0 5 KEY_GTRU 0000369 R 05 
CNFSW_SIZE = 0000000 KEY_LSSU 0000 gf R 05 
Cr S917 _F REE = 0 of KEY_MAX 0000375 R 05 
CNS $W- SIZ" USED = 0001 KEY_MIN 00000 30 8 05 
CNFS_ADVANCE = 0 KEY-NEQ 90088 63 R 05 
CNFS$_QUIT = MATCH 0000396 R 9 
CNFS$_TAKE_CURR = NE TSALLOCATE aeeeeere x 
CNFS” TAKE” PREV = 1 NETSC_ACT_TIMER = aise BE: 
$6_TYPE z A NETSC_EFN_ASYN = 0000000 
CNRSC_ACC_CW = 3 NETSC_EFN_WAIT s 38 01 
CNRSC_ACC"ER = 4 NETSC_IPL = 98 
$C_ACC_ = 5 NETSC_MAXACCFLD = 3 
CNRSC_ACC_RO = 1 NE TSC_MAXL INNAM = F 
CNRSC_ACC_WO = 2 NE TSC_MAXLNK = FF 
CNRSC_MAX_INX = £ NE TSC_MAXNODNAM = 006 
CNRSC_SEM_B = 1 NE TSC_MAXOBJNAM = C | 
CNRSC"SEM_BIT = 9 NETSC_MAX_AREAS = F 
CNRSC~SEM"L z NETSC"MAX"LINES z 40 
CNRSC_SEM_STR = 4 NETSC"MAX_NCB = 6E | 
| 
| 
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—E 7 
NE TCNF - Configuration data base access routine 16-SEP-1984 01:12:45 VAX/VMS Macro v04-00 
° iets 1 83:19:83 ENETACP. SREINETCNF MARS 1 (20) 


Psect synopsis 


tercens eeececeocoece} 


! Psect synopsis ! 


Fes e es w meee meee} 


PSECT name Allocation PSECT No. Attributes 


- ABS . 4 44164 ( -) 00 ¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( -»> O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
NET_PURE 0 ( ol ¢ ( §°) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
NET IMPURE 0 S-¢ 13.) ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
TABCES_ IMPURE 454 ( 118 -)> 04 ¢ 4.) NOPIC USR CON REL  GBL NOSHR NOEXE RD WRT NOVEC BYTE 
NET_COBE 766 ( 1894.) 05 ¢( 5.) NOPIC USR REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

Ce ere moe + 

! \ Per tormance indicators ! 

eeececeaeeaceeea pec tehtenticttitene 
Phase Page faults CPU Time Elapsed Time 
Initialization 28 00 : 00: 00-08 0:00:00.48 
poanene processing 131 Bo: 0:00.9 0:00:03.24 
Pas 428 0: Bho Oe Bp BR: 2.44 
synbol table sort 0 00:00:01.29 00:00:01.42 

291 89:8 - 13 BF BR 2 8 

cess of table output 23 0:00:00.18 0:00:00.18 
Psect synopsis output 3 0:00:00.04 00:00:00.05 
Cross-reference output 0 B89 00-00 ee Ss Se 
Assembler run totals 906 00:00:20.7 00:00:33.46 


The working set Limit was 2000 pages. 

75794 bytes (149 pages) of virtual memory were used to buffer the intermediate code 
There were 60 pages of symbol table geese tg to hold 879 non-local and 131. » 
1562 source Lines were read in Pass 1 progye ing. ¢ object records in Pass 2. 

29 pages of virtual memory were used to define 25 macros. 


— ymbols. 


Fee mm mers or meee ne nme eer oe + 


! ; Macro library statistics ! 


ere cre we wre mee me sewer eee moo e $+ 


Macro Library name Macros defined 

5 SEOUA : (SHRLIBIJNMALIBRY.MLB; 1 0 

5 poets 0843 EF .MLB;1 

“$ cB. 084) Neem ms: 1 

5 ie sENETACP: JIN 

~$52 SYS.0B Netie 2 
tS ySti83 STARLET. at, 32 6 

BS tall: Libraries) 16 


1008 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NETCNF /OBJ=OBJ$:NETCNF MSRC$:NETCNF/UPDATE=(ENHS$:NETCNE) ¢EXECMLS/LIB+LIB$:NET/LIB+LIB$:NETORV/LIB+SHRL IBS: EVCDEF /LIB+ 
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